home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / MSMOVTST.M < prev    next >
Encoding:
Text File  |  1992-03-25  |  596 b   |  26 lines
  1. MODULE MsMovTst;
  2.  
  3. FROM VDIInputs IMPORT MsMoveVecCarrier, InstallMsMoveProc;
  4. FROM GrafBase IMPORT Point;
  5. FROM MOSGlobals IMPORT MemArea;
  6. FROM InOut IMPORT WriteString, Read;
  7. FROM SYSTEM IMPORT ADR;
  8.  
  9. PROCEDURE MsMove (VAR loc: Point): BOOLEAN;
  10.   BEGIN
  11.     RETURN TRUE
  12.   END MsMove;
  13.   
  14. VAR hdl: MsMoveVecCarrier;
  15.     wsp: MemArea;
  16.     ch: CHAR;
  17.     stack: ARRAY [0..1000] OF CARDINAL;
  18.  
  19. BEGIN
  20.   WriteString ('Test für VDIInputs.InstallMsMoveProc ');
  21.   wsp.bottom:= ADR (stack);
  22.   wsp.length:= SIZE (stack);
  23.   InstallMsMoveProc (hdl, MsMove, wsp);
  24.   Read (ch);
  25. END MsMovTst.
  26.